define addone 
proc(n)
  s := n + 1;
  return := s
end;
define addtwo
proc(n)
  s := n + addone(1);
  return := s
end;
n := addtwo(5)